home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Dev
/
Amiga-E
/
E_v3.2a
/
Src
/
Reqs
/
AslDemo.e
next >
Wrap
Text File
|
1992-09-02
|
637b
|
26 lines
/* Some demo to use other, kick2 only librarys from E.
We'll pop up a filerequester from the asl.library. */
MODULE 'Asl', 'libraries/Asl'
DEF req:PTR TO filerequester
PROC main()
IF aslbase:=OpenLibrary('asl.library',37)
IF req:=AllocFileRequest()
WriteF('Pick a file:\n')
IF RequestFile(req)
WriteF('Guess what! you picked "\s" in "\s" !\n',req.file,req.drawer)
ELSE
WriteF('Hard eh?\n')
ENDIF
FreeFileRequest(req)
ELSE
WriteF('Could not open filerequester!\n')
ENDIF
CloseLibrary(aslbase)
ELSE
WriteF('Could not open asl.library!\n')
ENDIF
ENDPROC